home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
AXIS.LI
< prev
next >
Wrap
Text File
|
1994-08-11
|
397b
|
14 lines
axis(xmin_,xmax_,ymin_,ymax_) := block(setcolor(colorno(white)),
if(ymin>=0, y0:=getmaxy-20, y0:=getmaxy+ymin*getmaxy/(ymax-ymin)),
if(xmin>=0, x0:=20, x0:=-xmin*getmaxx/(xmax-xmin)),
line(0,y0,getmaxx,y0),
moveto(0,y0+10),
writes(xmin),
moveto(getmaxx-30,y0+10),
writes(xmax),
line(x0,0,x0,getmaxy),
moveto(x0-20,0),
writes(ymax),
moveto(x0-20,getmaxy-40),
writes(ymin))